﻿''' <summary>
''' Secure Parameter 
''' </summary>
''' <remarks>
''' Shortcut for <see cref="BaseParameter(Of String, String)" />
''' </remarks>
Public Class Parameter
    Inherits BaseParameter(Of String, String)

    ''' <summary>
    ''' Initializes a new instance of the <see cref="Parameter" /> class.
    ''' </summary>
    Public Sub New()
    End Sub

    ''' <summary>
    ''' Initializes a new instance of the <see cref="Parameter" /> class.
    ''' </summary>
    ''' <param name="value">The value.</param>
    Public Sub New(ByVal value As String)
        MyBase.New(value)
    End Sub

    ''' <summary>
    ''' New Parameter with a value and ruleset
    ''' </summary>
    ''' <param name="value "></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal value As String, ByVal ruleSet As RuleSet(Of String))
        MyBase.New(value, ruleSet)
    End Sub

End Class

''' <summary>
''' Secure Integer Parameter. Gets string as input returns integer. Only suitable for Integer Output RuleSets
''' </summary>
''' <remarks>
''' Shortcut for <see cref="BaseParameter(Of String, Integer)" />
''' </remarks>
Public Class IntegerParameter
    Inherits BaseParameter(Of String, Integer)

    ''' <summary>
    ''' Initializes a new instance of the <see cref="IntegerParameter" /> class.
    ''' </summary>
    Public Sub New()
    End Sub

    ''' <summary>
    ''' New Parameter with a value and ruleset
    ''' </summary>
    ''' <param name="value "></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal value As String, ByVal ruleSet As RuleSet(Of String))
        MyBase.New(value, ruleSet)
    End Sub
End Class
